/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / efs / efs-ti-twenex.elc.z / efs-ti-twenex.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 35 39 3a 34 33 20 31 | 39 39 38 0a 3b 3b 3b 20 |:59:43 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 65 66 73 2f |s-20.3/l|isp/efs/|
|000000a0| 65 66 73 2d 74 69 2d 74 | 77 65 6e 65 78 2e 65 6c |efs-ti-t|wenex.el|
|000000b0| 0a 3b 3b 3b 20 65 6d 61 | 63 73 20 76 65 72 73 69 |.;;; ema|cs versi|
|000000c0| 6f 6e 20 32 30 2e 34 20 | 22 45 6d 65 72 61 6c 64 |on 20.4 |"Emerald|
|000000d0| 22 20 58 45 6d 61 63 73 | 20 20 4c 75 63 69 64 2e |" XEmacs|  Lucid.|
|000000e0| 0a 3b 3b 3b 20 62 79 74 | 65 63 6f 6d 70 20 76 65 |.;;; byt|ecomp ve|
|000000f0| 72 73 69 6f 6e 20 32 2e | 32 35 20 58 45 6d 61 63 |rsion 2.|25 XEmac|
|00000100| 73 3b 20 32 32 2d 4d 61 | 72 2d 39 36 2e 0a 3b 3b |s; 22-Ma|r-96..;;|
|00000110| 3b 20 6f 70 74 69 6d 69 | 7a 61 74 69 6f 6e 20 69 |; optimi|zation i|
|00000120| 73 20 6f 6e 2e 0a 3b 3b | 3b 20 74 68 69 73 20 66 |s on..;;|; this f|
|00000130| 69 6c 65 20 75 73 65 73 | 20 6f 70 63 6f 64 65 73 |ile uses| opcodes|
|00000140| 20 77 68 69 63 68 20 64 | 6f 20 6e 6f 74 20 65 78 | which d|o not ex|
|00000150| 69 73 74 20 69 6e 20 45 | 6d 61 63 73 20 31 39 2e |ist in E|macs 19.|
|00000160| 0a 0a 28 69 66 20 28 61 | 6e 64 20 28 62 6f 75 6e |..(if (a|nd (boun|
|00000170| 64 70 20 27 65 6d 61 63 | 73 2d 76 65 72 73 69 6f |dp 'emac|s-versio|
|00000180| 6e 29 0a 09 20 28 6f 72 | 20 28 61 6e 64 20 28 62 |n).. (or| (and (b|
|00000190| 6f 75 6e 64 70 20 27 65 | 70 6f 63 68 3a 3a 76 65 |oundp 'e|poch::ve|
|000001a0| 72 73 69 6f 6e 29 20 65 | 70 6f 63 68 3a 3a 76 65 |rsion) e|poch::ve|
|000001b0| 72 73 69 6f 6e 29 0a 09 | 20 20 20 20 20 28 73 74 |rsion)..|     (st|
|000001c0| 72 69 6e 67 2d 6c 65 73 | 73 70 20 65 6d 61 63 73 |ring-les|sp emacs|
|000001d0| 2d 76 65 72 73 69 6f 6e | 20 22 32 30 22 29 29 29 |-version| "20")))|
|000001e0| 0a 20 20 20 20 28 65 72 | 72 6f 72 20 22 60 65 66 |.    (er|ror "`ef|
|000001f0| 73 2d 74 69 2d 74 77 65 | 6e 65 78 2e 65 6c 27 20 |s-ti-twe|nex.el' |
|00000200| 77 61 73 20 63 6f 6d 70 | 69 6c 65 64 20 66 6f 72 |was comp|iled for|
|00000210| 20 45 6d 61 63 73 20 32 | 30 22 29 29 0a 0a 28 6f | Emacs 2|0"))..(o|
|00000220| 72 20 28 62 6f 75 6e 64 | 70 20 27 63 75 72 72 65 |r (bound|p 'curre|
|00000230| 6e 74 2d 6c 6f 61 64 2d | 6c 69 73 74 29 20 28 73 |nt-load-|list) (s|
|00000240| 65 74 71 20 63 75 72 72 | 65 6e 74 2d 6c 6f 61 64 |etq curr|ent-load|
|00000250| 2d 6c 69 73 74 20 6e 69 | 6c 29 29 0a 0a 0a 28 62 |-list ni|l))...(b|
|00000260| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 21 88 c2 c3 |yte-code| "..!...|
|00000270| 21 88 c4 c5 c6 4f c7 c8 | c9 c6 4f 51 16 5c 6e ca |!....O..|..OQ.\n.|
|00000280| 0e 0b 42 16 0b cc 1e 0d | ce 0e 0d cf 51 1e 10 ce |..B.....|....Q...|
|00000290| 0e 0d d1 51 1e 12 d3 0e | 10 d4 d5 d6 0e 10 d7 0e |...Q....|........|
|000002a0| 10 d8 d3 0e 12 d9 0e 12 | da db b0 0f 2b 16 1c dc |........|....+...|
|000002b0| 0e 0b 42 16 0b dd de df | e0 e1 21 0e 5c 22 5c 22 |..B.....|..!.\"\"|
|000002c0| e3 23 88 dd e4 df e0 e1 | 21 0e 5c 22 5c 22 e5 23 |.#......|!.\"\".#|
|000002d0| 87 22 20 5b 70 72 6f 76 | 69 64 65 20 65 66 73 2d |." [prov|ide efs-|
|000002e0| 74 69 2d 74 77 65 6e 65 | 78 20 72 65 71 75 69 72 |ti-twene|x requir|
|000002f0| 65 20 65 66 73 20 22 24 | 65 66 73 20 72 65 6c 65 |e efs "$|efs rele|
|00000300| 61 73 65 3a 20 31 2e 31 | 35 20 24 22 20 31 34 20 |ase: 1.1|5 $" 14 |
|00000310| 2d 32 20 22 2f 22 20 22 | 23 52 65 76 69 73 69 6f |-2 "/" "|#Revisio|
|00000320| 6e 3a 20 31 2e 31 20 24 | 22 20 31 31 20 65 66 73 |n: 1.1 $|" 11 efs|
|00000330| 2d 74 69 2d 74 77 65 6e | 65 78 2d 76 65 72 73 69 |-ti-twen|ex-versi|
|00000340| 6f 6e 20 63 75 72 72 65 | 6e 74 2d 6c 6f 61 64 2d |on curre|nt-load-|
|00000350| 6c 69 73 74 20 22 3a 3b | 3c 3e 2e 23 5c 6e 0d 09 |list ":;|<>.#\n..|
|00000360| 61 2d 7a 22 20 65 78 63 | 6c 75 64 65 64 2d 63 68 |a-z" exc|luded-ch|
|00000370| 61 72 73 20 22 5b 5e 22 | 20 22 5d 2b 22 20 74 6f |ars "[^"| "]+" to|
|00000380| 6b 65 6e 20 22 5d 2a 22 | 20 74 6f 6b 65 6e 2a 20 |ken "]*"| token* |
|00000390| 22 5c 5c 28 22 20 22 3a | 20 2a 22 20 22 5c 5c 29 |"\\(" ":| *" "\\)|
|000003a0| 3f 22 20 22 3c 5c 5c 28 | 22 20 22 5c 5c 29 3f 5c |?" "<\\(|" "\\)?\|
|000003b0| 5c 28 5c 5c 2e 22 20 22 | 5c 5c 29 2a 3e 20 2a 22 |\(\\." "|\\)*> *"|
|000003c0| 20 22 2e 22 20 22 5c 5c | 7c 5c 5c 29 20 2a 22 20 | "." "\\||\\) *" |
|000003d0| 22 5c 5c 28 5c 5c 2e 20 | 2a 2d 3f 5c 5c 28 5b 30 |"\\(\\. |*-?\\([0|
|000003e0| 2d 39 5d 2b 5c 5c 7c 3e | 5c 5c 29 5c 5c 29 3f 22 |-9]+\\|>|\\)\\)?"|
|000003f0| 20 65 66 73 2d 74 69 2d | 74 77 65 6e 65 78 2d 66 | efs-ti-|twenex-f|
|00000400| 69 6c 65 6e 61 6d 65 2d | 72 65 67 65 78 70 20 70 |ilename-|regexp p|
|00000410| 75 74 20 65 66 73 2d 66 | 69 78 2d 70 61 74 68 20 |ut efs-f|ix-path |
|00000420| 69 6e 74 65 72 6e 20 73 | 79 6d 62 6f 6c 2d 6e 61 |intern s|ymbol-na|
|00000430| 6d 65 20 74 69 2d 74 77 | 65 6e 65 78 20 65 66 73 |me ti-tw|enex efs|
|00000440| 2d 6b 65 79 2d 6f 62 61 | 72 72 61 79 20 23 5b 28 |-key-oba|rray #[(|
|00000450| 70 61 74 68 20 26 6f 70 | 74 69 6f 6e 61 6c 20 72 |path &op|tional r|
|00000460| 65 76 65 72 73 65 29 20 | 22 c0 20 70 09 1a 1b 1c |everse) |". p....|
|00000470| c5 8e c6 11 0e 07 ab de | c8 c9 0e 5c 6e 5c 22 ab |........|...\n\".|
|00000480| d0 c6 89 1e 0b 1e 0c cd | 94 ab 89 0e 5c 6e cd 94 |........|....\n..|
|00000490| cd 95 4f 16 0c ce 94 ab | 89 0e 5c 6e ce 94 ce 95 |..O.....|..\n....|
|000004a0| 4f 16 0b 0e 0c ab a0 cf | d0 d1 d2 0e 0c 5c 22 5c |O.......|.....\"\|
|000004b0| 22 16 0c c8 d3 0e 0c 5c | 22 ab 89 0e 0c d4 c6 4f |"......\|"......O|
|000004c0| 16 0c aa 86 d5 0e 0c 50 | 16 0c 0e 0c 89 ad 81 d5 |.......P|........|
|000004d0| 0e 0b 51 2a aa d1 d6 d7 | 0e 5c 6e 5c 22 aa ca c6 |..Q*....|.\n\"...|
|000004e0| 89 89 1e 18 1e 0b 1e 0c | d9 0e 5c 6e 21 89 16 18 |........|..\n!...|
|000004f0| ab a3 cf d0 d1 da 0e 18 | db dc 4f 5c 22 5c 22 16 |........|..O\"\".|
|00000500| 0c c8 dd 0e 0c 5c 22 ab | 89 0e 0c d4 c6 4f 16 0c |.....\".|.....O..|
|00000510| aa 86 de 0e 0c 50 16 0c | df 0e 5c 6e 21 16 0b 0e |.....P..|..\n!...|
|00000520| 0c ad 81 e0 0e 0c 89 ad | 81 e1 0e 0b 52 2b 2c 87 |........|....R+,.|
|00000530| 22 20 5b 6d 61 74 63 68 | 2d 64 61 74 61 20 63 61 |" [match|-data ca|
|00000540| 73 65 2d 66 6f 6c 64 2d | 73 65 61 72 63 68 20 63 |se-fold-|search c|
|00000550| 66 73 20 62 75 66 66 20 | 6d 61 74 63 68 2d 64 61 |fs buff |match-da|
|00000560| 74 61 20 28 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ta ((byt|e-code "|
|00000570| c0 c1 c2 8f 88 c3 0c 21 | 87 22 20 5b 6e 69 6c 20 |.......!|." [nil |
|00000580| 28 62 79 74 65 2d 63 6f | 64 65 20 22 8a 08 71 88 |(byte-co|de "..q.|
|00000590| 09 12 29 c3 87 22 20 5b | 62 75 66 66 20 63 66 73 |..).." [|buff cfs|
|000005a0| 20 63 61 73 65 2d 66 6f | 6c 64 2d 73 65 61 72 63 | case-fo|ld-searc|
|000005b0| 68 20 6e 69 6c 5d 20 31 | 29 20 28 28 65 72 72 6f |h nil] 1|) ((erro|
|000005c0| 72 29 29 20 73 74 6f 72 | 65 2d 6d 61 74 63 68 2d |r)) stor|e-match-|
|000005d0| 64 61 74 61 20 6d 61 74 | 63 68 2d 64 61 74 61 5d |data mat|ch-data]|
|000005e0| 20 33 29 29 20 6e 69 6c | 20 72 65 76 65 72 73 65 | 3)) nil| reverse|
|000005f0| 20 73 74 72 69 6e 67 2d | 6d 61 74 63 68 20 22 5e | string-|match "^|
|00000600| 5c 5c 28 5b 5e 3a 5d 2b | 3a 5c 5c 29 3f 20 2a 5c |\\([^:]+|:\\)? *\|
|00000610| 5c 28 5b 5e 3a 5d 2b 3a | 5c 5c 29 3f 20 2a 3c 5c |\([^:]+:|\\)? *<\|
|00000620| 5c 28 5b 5e 3e 5d 2a 5c | 5c 29 3e 20 2a 5c 5c 28 |\([^>]*\|\)> *\\(|
|00000630| 2e 2a 5c 5c 29 24 22 20 | 70 61 74 68 20 66 69 6c |.*\\)$" |path fil|
|00000640| 65 20 64 69 72 20 33 20 | 34 20 61 70 70 6c 79 20 |e dir 3 |4 apply |
|00000650| 63 6f 6e 63 61 74 20 6d | 61 70 63 61 72 20 23 5b |concat m|apcar #[|
|00000660| 28 63 68 61 72 29 20 22 | 08 c1 55 ab 84 c2 c3 21 |(char) "|..U....!|
|00000670| 87 c2 08 21 87 22 20 5b | 63 68 61 72 20 3f 5c 2e |...!." [|char ?\.|
|00000680| 20 76 65 63 74 6f 72 20 | 3f 5c 2f 5d 20 32 5d 20 | vector |?\/] 2] |
|00000690| 22 5e 2f 22 20 31 20 22 | 2f 22 20 65 72 72 6f 72 |"^/" 1 "|/" error|
|000006a0| 20 22 70 61 74 68 20 25 | 73 20 64 69 64 6e 27 74 | "path %|s didn't|
|000006b0| 20 6d 61 74 63 68 20 74 | 69 2d 74 77 65 6e 65 78 | match t|i-twenex|
|000006c0| 20 73 79 6e 74 61 78 22 | 20 74 6d 70 20 66 69 6c | syntax"| tmp fil|
|000006d0| 65 2d 6e 61 6d 65 2d 64 | 69 72 65 63 74 6f 72 79 |e-name-d|irectory|
|000006e0| 20 23 5b 28 63 68 61 72 | 29 20 22 08 c1 55 ab 84 | #[(char|) "..U..|
|000006f0| c2 c3 21 87 c2 08 21 87 | 22 20 5b 63 68 61 72 20 |..!...!.|" [char |
|00000700| 3f 5c 2f 20 76 65 63 74 | 6f 72 20 3f 5c 2e 5d 20 |?\/ vect|or ?\.] |
|00000710| 32 5d 20 30 20 2d 31 20 | 22 5e 5b 2e 5d 22 20 22 |2] 0 -1 |"^[.]" "|
|00000720| 2e 22 20 66 69 6c 65 2d | 6e 61 6d 65 2d 6e 6f 6e |." file-|name-non|
|00000730| 64 69 72 65 63 74 6f 72 | 79 20 22 3c 22 20 22 3e |director|y "<" ">|
|00000740| 22 5d 20 37 5d 20 65 66 | 73 2d 66 69 78 2d 64 69 |"] 7] ef|s-fix-di|
|00000750| 72 2d 70 61 74 68 20 23 | 5b 28 64 69 72 2d 70 61 |r-path #|[(dir-pa|
|00000760| 74 68 29 20 22 08 c1 98 | ab 86 c2 c3 c4 c5 23 87 |th) "...|......#.|
|00000770| c6 c7 08 5c 22 ab 84 c8 | c9 21 87 c2 c3 08 c5 23 |...\"...|.!.....#|
|00000780| 87 22 20 5b 64 69 72 2d | 70 61 74 68 20 22 2f 22 |." [dir-|path "/"|
|00000790| 20 65 66 73 2d 66 69 78 | 2d 70 61 74 68 20 74 69 | efs-fix|-path ti|
|000007a0| 2d 74 77 65 6e 65 78 20 | 22 2f 7e 2f 22 20 6e 69 |-twenex |"/~/" ni|
|000007b0| 6c 20 73 74 72 69 6e 67 | 2d 6d 61 74 63 68 20 22 |l string|-match "|
|000007c0| 5e 2f 5b 2d 41 2d 5a 30 | 2d 39 5f 24 5d 2b 3a 2f |^/[-A-Z0|-9_$]+:/|
|000007d0| 22 20 65 72 72 6f 72 20 | 22 44 6f 6e 27 74 20 67 |" error |"Don't g|
|000007e0| 72 6f 6b 20 54 57 45 4e | 45 58 20 5c 22 64 65 76 |rok TWEN|EX \"dev|
|000007f0| 69 63 65 73 5c 22 20 79 | 65 74 2e 22 5d 20 34 5d |ices\" y|et."] 4]|
|00000800| 5d 20 31 35 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |] 15).(d|efalias |
|00000810| 27 65 66 73 2d 70 61 72 | 73 65 2d 74 69 2d 74 77 |'efs-par|se-ti-tw|
|00000820| 65 6e 65 78 2d 66 69 6c | 65 6e 61 6d 65 20 27 28 |enex-fil|ename '(|
|00000830| 6d 61 63 72 6f 20 2e 20 | 23 5b 6e 69 6c 20 22 c0 |macro . |#[nil ".|
|00000840| 87 22 20 5b 28 69 66 20 | 28 72 65 2d 73 65 61 72 |." [(if |(re-sear|
|00000850| 63 68 2d 66 6f 72 77 61 | 72 64 20 65 66 73 2d 74 |ch-forwa|rd efs-t|
|00000860| 69 2d 74 77 65 6e 65 78 | 2d 66 69 6c 65 6e 61 6d |i-twenex|-filenam|
|00000870| 65 2d 72 65 67 65 78 70 | 20 6e 69 6c 20 74 29 20 |e-regexp| nil t) |
|00000880| 28 62 75 66 66 65 72 2d | 73 75 62 73 74 72 69 6e |(buffer-|substrin|
|00000890| 67 20 28 6d 61 74 63 68 | 2d 62 65 67 69 6e 6e 69 |g (match|-beginni|
|000008a0| 6e 67 20 30 29 20 28 6d | 61 74 63 68 2d 65 6e 64 |ng 0) (m|atch-end|
|000008b0| 20 30 29 29 29 5d 20 31 | 5d 29 29 0a 28 62 79 74 | 0)))] 1|])).(byt|
|000008c0| 65 2d 63 6f 64 65 20 22 | c0 c1 c2 c3 c4 21 0d 5c |e-code "|.....!.\|
|000008d0| 22 c6 23 88 c0 c7 c2 c3 | c4 21 0d 5c 22 c8 23 88 |".#.....|.!.\".#.|
|000008e0| c0 c9 c2 c3 c4 21 0d 5c | 22 ca 23 88 c0 cb c2 c3 |.....!.\|".#.....|
|000008f0| c4 21 0d 5c 22 cc 23 88 | c0 cd c2 c3 c4 21 0d 5c |.!.\".#.|.....!.\|
|00000900| 22 ce 23 88 c0 cf c2 c3 | c4 21 0d 5c 22 d0 23 87 |".#.....|.!.\".#.|
|00000910| 22 20 5b 70 75 74 20 65 | 66 73 2d 70 61 72 73 65 |" [put e|fs-parse|
|00000920| 2d 6c 69 73 74 69 6e 67 | 20 69 6e 74 65 72 6e 20 |-listing| intern |
|00000930| 73 79 6d 62 6f 6c 2d 6e | 61 6d 65 20 74 69 2d 74 |symbol-n|ame ti-t|
|00000940| 77 65 6e 65 78 20 65 66 | 73 2d 6b 65 79 2d 6f 62 |wenex ef|s-key-ob|
|00000950| 61 72 72 61 79 20 23 5b | 28 68 6f 73 74 20 75 73 |array #[|(host us|
|00000960| 65 72 20 64 69 72 20 70 | 61 74 68 20 26 6f 70 74 |er dir p|ath &opt|
|00000970| 69 6f 6e 61 6c 20 73 77 | 69 74 63 68 65 73 29 20 |ional sw|itches) |
|00000980| 22 c0 20 c1 1a 1b 65 62 | 88 c4 20 70 0d 1e 06 1e |". ...eb|.. p....|
|00000990| 07 1e 08 c9 8e c1 15 ca | 0e 0b c1 cc 23 ad 85 cd |........|....#...|
|000009a0| 94 cd 95 7b 89 12 83 b3 | 00 ce cf 5c 6e 5c 22 ab |...{....|...\n\".|
|000009b0| 86 5c 6e cd 95 c1 4f 12 | ce d0 5c 6e 5c 22 ab a7 |.\n...O.|..\n\"..|
|000009c0| 5c 6e cd 89 94 4f 89 1e | 11 3b ab 84 0e 11 aa 84 |\n...O..|.;......|
|000009d0| d2 0e 11 21 29 1e 11 d3 | 0e 11 0b 5c 22 1e 14 d5 |...!)...|...\"...|
|000009e0| 0e 14 d6 d7 23 88 2a aa | cc 5c 6e 89 1e 11 3b ab |....#.*.|.\n...;.|
|000009f0| 84 0e 11 aa 84 d2 0e 11 | 21 29 1e 11 d3 0e 11 0b |........|!)......|
|00000a00| 5c 22 1e 14 d5 0e 14 d6 | d8 23 88 2a ce d9 5c 6e |\"......|.#.*..\n|
|00000a10| 5c 22 ab a5 5c 6e cd 89 | 94 4f 89 1e 11 3b ab 84 |\"..\n..|.O...;..|
|00000a20| 0e 11 aa 84 d2 0e 11 21 | 29 1e 11 d3 0e 11 0b 5c |.......!|)......\|
|00000a30| 22 1e 14 d5 0e 14 d6 da | 23 88 2a db 79 88 82 16 |".......|#.*.y...|
|00000a40| 00 dc 1e 11 dc 3b ab 84 | 0e 11 aa 84 d2 0e 11 21 |.....;..|.......!|
|00000a50| 29 1e 11 d3 0e 11 0b 5c | 22 1e 14 d5 0e 14 d6 dd |)......\|".......|
|00000a60| 23 88 2a de 1e 11 de 3b | ab 84 0e 11 aa 84 d2 0e |#.*....;|........|
|00000a70| 11 21 29 1e 11 d3 0e 11 | 0b 5c 22 1e 14 d5 0e 14 |.!).....|.\".....|
|00000a80| d6 df 23 88 2e 06 0b 2a | 87 22 20 5b 65 66 73 2d |..#....*|." [efs-|
|00000a90| 6d 61 6b 65 2d 68 61 73 | 68 74 61 62 6c 65 20 6e |make-has|htable n|
|00000aa0| 69 6c 20 66 69 6c 65 20 | 74 62 6c 20 6d 61 74 63 |il file |tbl matc|
|00000ab0| 68 2d 64 61 74 61 20 63 | 61 73 65 2d 66 6f 6c 64 |h-data c|ase-fold|
|00000ac0| 2d 73 65 61 72 63 68 20 | 63 66 73 20 62 75 66 66 |-search |cfs buff|
|00000ad0| 20 6d 61 74 63 68 2d 64 | 61 74 61 20 28 28 62 79 | match-d|ata ((by|
|00000ae0| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 c2 8f 88 c3 0c |te-code |".......|
|00000af0| 21 87 22 20 5b 6e 69 6c | 20 28 62 79 74 65 2d 63 |!." [nil| (byte-c|
|00000b00| 6f 64 65 20 22 8a 08 71 | 88 09 12 29 c3 87 22 20 |ode "..q|...).." |
|00000b10| 5b 62 75 66 66 20 63 66 | 73 20 63 61 73 65 2d 66 |[buff cf|s case-f|
|00000b20| 6f 6c 64 2d 73 65 61 72 | 63 68 20 6e 69 6c 5d 20 |old-sear|ch nil] |
|00000b30| 31 29 20 28 28 65 72 72 | 6f 72 29 29 20 73 74 6f |1) ((err|or)) sto|
|00000b40| 72 65 2d 6d 61 74 63 68 | 2d 64 61 74 61 20 6d 61 |re-match|-data ma|
|00000b50| 74 63 68 2d 64 61 74 61 | 5d 20 33 29 29 20 72 65 |tch-data|] 3)) re|
|00000b60| 2d 73 65 61 72 63 68 2d | 66 6f 72 77 61 72 64 20 |-search-|forward |
|00000b70| 65 66 73 2d 74 69 2d 74 | 77 65 6e 65 78 2d 66 69 |efs-ti-t|wenex-fi|
|00000b80| 6c 65 6e 61 6d 65 2d 72 | 65 67 65 78 70 20 74 20 |lename-r|egexp t |
|00000b90| 30 20 73 74 72 69 6e 67 | 2d 6d 61 74 63 68 20 22 |0 string|-match "|
|00000ba0| 5e 5b 5e 3e 5d 2a 3e 20 | 2a 22 20 22 5c 5c 2e 5c |^[^>]*> |*" "\\.\|
|00000bb0| 5c 28 44 49 52 45 43 54 | 4f 52 59 5c 5c 7c 64 69 |\(DIRECT|ORY\\|di|
|00000bc0| 72 65 63 74 6f 72 79 5c | 5c 29 2e 5b 30 2d 39 5d |rectory\|\).[0-9]|
|00000bd0| 2b 24 22 20 6b 65 79 20 | 70 72 69 6e 31 2d 74 6f |+$" key |prin1-to|
|00000be0| 2d 73 74 72 69 6e 67 20 | 69 6e 74 65 72 6e 20 73 |-string |intern s|
|00000bf0| 79 6d 20 70 75 74 20 76 | 61 6c 20 28 74 29 20 28 |ym put v|al (t) (|
|00000c00| 6e 69 6c 29 20 22 5c 5c | 2e 5b 30 2d 39 5d 2b 24 |nil) "\\|.[0-9]+$|
|00000c10| 22 20 28 6e 69 6c 29 20 | 31 20 22 2e 22 20 28 74 |" (nil) |1 "." (t|
|00000c20| 29 20 22 2e 2e 22 20 28 | 74 29 5d 20 35 5d 20 65 |) ".." (|t)] 5] e|
|00000c30| 66 73 2d 72 65 61 6c 6c | 79 2d 66 69 6c 65 2d 70 |fs-reall|y-file-p|
|00000c40| 20 23 5b 28 66 69 6c 65 | 20 65 6e 74 29 20 22 08 | #[(file| ent) ".|
|00000c50| 40 ae 91 c1 20 70 5c 6e | 1b 1c 1d c6 8e c7 12 c8 |@... p\n|........|
|00000c60| c9 0e 5c 6e 5c 22 2c 87 | 22 20 5b 65 6e 74 20 6d |..\n\",.|" [ent m|
|00000c70| 61 74 63 68 2d 64 61 74 | 61 20 63 61 73 65 2d 66 |atch-dat|a case-f|
|00000c80| 6f 6c 64 2d 73 65 61 72 | 63 68 20 63 66 73 20 62 |old-sear|ch cfs b|
|00000c90| 75 66 66 20 6d 61 74 63 | 68 2d 64 61 74 61 20 28 |uff matc|h-data (|
|00000ca0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 c2 8f |(byte-co|de "....|
|00000cb0| 88 c3 0c 21 87 22 20 5b | 6e 69 6c 20 28 62 79 74 |...!." [|nil (byt|
|00000cc0| 65 2d 63 6f 64 65 20 22 | 8a 08 71 88 09 12 29 c3 |e-code "|..q...).|
|00000cd0| 87 22 20 5b 62 75 66 66 | 20 63 66 73 20 63 61 73 |." [buff| cfs cas|
|00000ce0| 65 2d 66 6f 6c 64 2d 73 | 65 61 72 63 68 20 6e 69 |e-fold-s|earch ni|
|00000cf0| 6c 5d 20 31 29 20 28 28 | 65 72 72 6f 72 29 29 20 |l] 1) ((|error)) |
|00000d00| 73 74 6f 72 65 2d 6d 61 | 74 63 68 2d 64 61 74 61 |store-ma|tch-data|
|00000d10| 20 6d 61 74 63 68 2d 64 | 61 74 61 5d 20 33 29 29 | match-d|ata] 3))|
|00000d20| 20 6e 69 6c 20 73 74 72 | 69 6e 67 2d 6d 61 74 63 | nil str|ing-matc|
|00000d30| 68 20 22 5c 5c 2e 5b 30 | 2d 39 5d 2b 24 22 20 66 |h "\\.[0|-9]+$" f|
|00000d40| 69 6c 65 5d 20 33 5d 20 | 65 66 73 2d 64 65 6c 65 |ile] 3] |efs-dele|
|00000d50| 74 65 2d 66 69 6c 65 2d | 65 6e 74 72 79 20 23 5b |te-file-|entry #[|
|00000d60| 28 70 61 74 68 20 26 6f | 70 74 69 6f 6e 61 6c 20 |(path &o|ptional |
|00000d70| 64 69 72 2d 70 29 20 22 | c0 09 73 1a 0b 83 93 00 |dir-p) "|..s.....|
|00000d80| c4 0d 21 c6 1e 07 1d c8 | 0d 0e 09 5c 6e 23 88 ca |..!.....|...\n#..|
|00000d90| 0d 21 15 cb 0d 21 89 1e | 0c 3b ab 84 0e 0c aa 84 |.!...!..|.;......|
|00000da0| cd 0e 0c 21 29 1e 0c 5c | 6e ab b3 ce 1e 0f 0e 0c |...!)..\|n.......|
|00000db0| 1e 10 0e 09 1e 11 0e 0c | 47 1e 12 d3 0e 10 0e 11 |........|G.......|
|00000dc0| d4 23 89 1e 15 ad 94 0e | 15 ce 61 ab 88 d6 0e 10 |.#......|..a.....|
|00000dd0| 0e 11 5c 22 aa 86 d6 0e | 15 0e 11 5c 22 2d aa 86 |..\"....|...\"-..|
|00000de0| d7 0e 0c 0e 09 5c 22 89 | 1e 18 ad 84 0e 18 d9 4e |.....\".|.......N|
|00000df0| 2a 89 16 07 ab 96 c8 da | 0d 21 89 1e 1b dc 98 ab |*.......|.!......|
|00000e00| 83 dd aa 82 0e 1b 29 0e | 07 5c 6e 23 88 2a 82 47 |......).|.\n#.*.G|
|00000e10| 01 de 20 70 0e 1f 1e 20 | 1e 21 1e 5c 22 e3 8e c6 |.. p... |.!.\"...|
|00000e20| 16 1f da 0d 21 89 1e 1b | dc 98 ab 83 dd aa 82 0e |....!...|........|
|00000e30| 1b 29 1e 1b e4 e5 0e 1b | 5c 22 83 46 01 cb 0d 21 |.)......|\".F...!|
|00000e40| 89 1e 0c 3b ab 84 0e 0c | aa 84 cd 0e 0c 21 29 1e |...;....|.....!).|
|00000e50| 0c 5c 6e ab b3 ce 1e 0f | 0e 0c 1e 10 0e 09 1e 11 |.\n.....|........|
|00000e60| 0e 0c 47 1e 12 d3 0e 10 | 0e 11 e6 23 89 1e 15 ad |..G.....|...#....|
|00000e70| 94 0e 15 ce 61 ab 88 d6 | 0e 10 0e 11 5c 22 aa 86 |....a...|....\"..|
|00000e80| d6 0e 15 0e 11 5c 22 2d | aa 86 d7 0e 0c 0e 09 5c |.....\"-|.......\|
|00000e90| 22 89 1e 18 ad 84 0e 18 | d9 4e 2a 89 1e 07 ab a9 |".......|.N*.....|
|00000ea0| 0e 1b e7 89 94 4f 5c 6e | e7 94 1e 12 1e 0f 1e 28 |.....O\n|.......(|
|00000eb0| c8 0e 1b 0e 07 5c 6e 23 | 88 e9 0e 28 0e 07 ea 23 |.....\n#|...(...#|
|00000ec0| ac 88 c8 0e 28 0e 07 5c | 6e 23 88 2b 29 2d eb 0d |....(..\|n#.+)-..|
|00000ed0| ce 5c 6e 23 29 87 22 20 | 5b 74 69 2d 74 77 65 6e |.\n#)." |[ti-twen|
|00000ee0| 65 78 20 65 66 73 2d 63 | 61 73 65 2d 69 6e 73 65 |ex efs-c|ase-inse|
|00000ef0| 6e 73 69 74 69 76 65 2d | 68 6f 73 74 2d 74 79 70 |nsitive-|host-typ|
|00000f00| 65 73 20 69 67 6e 6f 72 | 65 2d 63 61 73 65 20 64 |es ignor|e-case d|
|00000f10| 69 72 2d 70 20 66 69 6c | 65 2d 6e 61 6d 65 2d 61 |ir-p fil|e-name-a|
|00000f20| 73 2d 64 69 72 65 63 74 | 6f 72 79 20 70 61 74 68 |s-direct|ory path|
|00000f30| 20 6e 69 6c 20 66 69 6c | 65 73 20 65 66 73 2d 64 | nil fil|es efs-d|
|00000f40| 65 6c 2d 68 61 73 68 2d | 65 6e 74 72 79 20 65 66 |el-hash-|entry ef|
|00000f50| 73 2d 66 69 6c 65 73 2d | 68 61 73 68 74 61 62 6c |s-files-|hashtabl|
|00000f60| 65 20 64 69 72 65 63 74 | 6f 72 79 2d 66 69 6c 65 |e direct|ory-file|
|00000f70| 2d 6e 61 6d 65 20 66 69 | 6c 65 2d 6e 61 6d 65 2d |-name fi|le-name-|
|00000f80| 64 69 72 65 63 74 6f 72 | 79 20 6b 65 79 20 70 72 |director|y key pr|
|00000f90| 69 6e 31 2d 74 6f 2d 73 | 74 72 69 6e 67 20 74 20 |in1-to-s|tring t |
|00000fa0| 63 6f 6d 70 6c 65 74 69 | 6f 6e 2d 69 67 6e 6f 72 |completi|on-ignor|
|00000fb0| 65 2d 63 61 73 65 20 6e | 61 6d 65 20 74 62 6c 20 |e-case n|ame tbl |
|00000fc0| 6c 65 6e 20 74 72 79 2d | 63 6f 6d 70 6c 65 74 69 |len try-|completi|
|00000fd0| 6f 6e 20 23 5b 28 73 79 | 6d 29 20 22 c0 09 21 47 |on #[(sy|m) "..!G|
|00000fe0| 5c 6e 55 87 22 20 5b 73 | 79 6d 62 6f 6c 2d 6e 61 |\nU." [s|ymbol-na|
|00000ff0| 6d 65 20 73 79 6d 20 6c | 65 6e 5d 20 32 5d 20 6e |me sym l|en] 2] n|
|00001000| 65 77 6e 61 6d 65 20 69 | 6e 74 65 72 6e 20 69 6e |ewname i|ntern in|
|00001010| 74 65 72 6e 2d 73 6f 66 | 74 20 73 79 6d 20 76 61 |tern-sof|t sym va|
|00001020| 6c 20 66 69 6c 65 2d 6e | 61 6d 65 2d 6e 6f 6e 64 |l file-n|ame-nond|
|00001030| 69 72 65 63 74 6f 72 79 | 20 66 69 6c 65 20 22 22 |irectory| file ""|
|00001040| 20 22 2e 22 20 6d 61 74 | 63 68 2d 64 61 74 61 20 | "." mat|ch-data |
|00001050| 63 61 73 65 2d 66 6f 6c | 64 2d 73 65 61 72 63 68 |case-fol|d-search|
|00001060| 20 63 66 73 20 62 75 66 | 66 20 6d 61 74 63 68 2d | cfs buf|f match-|
|00001070| 64 61 74 61 20 28 28 62 | 79 74 65 2d 63 6f 64 65 |data ((b|yte-code|
|00001080| 20 22 c0 c1 c2 8f 88 c3 | 0c 21 87 22 20 5b 6e 69 | "......|.!." [ni|
|00001090| 6c 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 8a 08 |l (byte-|code "..|
|000010a0| 71 88 09 12 29 c3 87 22 | 20 5b 62 75 66 66 20 63 |q...).."| [buff c|
|000010b0| 66 73 20 63 61 73 65 2d | 66 6f 6c 64 2d 73 65 61 |fs case-|fold-sea|
|000010c0| 72 63 68 20 6e 69 6c 5d | 20 31 29 20 28 28 65 72 |rch nil]| 1) ((er|
|000010d0| 72 6f 72 29 29 20 73 74 | 6f 72 65 2d 6d 61 74 63 |ror)) st|ore-matc|
|000010e0| 68 2d 64 61 74 61 20 6d | 61 74 63 68 2d 64 61 74 |h-data m|atch-dat|
|000010f0| 61 5d 20 33 29 29 20 73 | 74 72 69 6e 67 2d 6d 61 |a] 3)) s|tring-ma|
|00001100| 74 63 68 20 22 5c 5c 2e | 5b 30 2d 39 5d 2b 24 22 |tch "\\.|[0-9]+$"|
|00001110| 20 23 5b 28 73 79 6d 29 | 20 22 c0 09 21 47 5c 6e | #[(sym)| "..!G\n|
|00001120| 55 87 22 20 5b 73 79 6d | 62 6f 6c 2d 6e 61 6d 65 |U." [sym|bol-name|
|00001130| 20 73 79 6d 20 6c 65 6e | 5d 20 32 5d 20 30 20 72 | sym len|] 2] 0 r|
|00001140| 6f 6f 74 20 61 6c 6c 2d | 63 6f 6d 70 6c 65 74 69 |oot all-|completi|
|00001150| 6f 6e 73 20 23 5b 28 73 | 79 6d 29 20 22 c0 c1 c2 |ons #[(s|ym) "...|
|00001160| 0b 21 0c 23 87 22 20 5b | 73 74 72 69 6e 67 2d 6d |.!.#." [|string-m|
|00001170| 61 74 63 68 20 22 5c 5c | 2e 5b 30 2d 39 5d 2b 24 |atch "\\|.[0-9]+$|
|00001180| 22 20 73 79 6d 62 6f 6c | 2d 6e 61 6d 65 20 73 79 |" symbol|-name sy|
|00001190| 6d 20 6c 65 6e 5d 20 34 | 5d 20 65 66 73 2d 64 65 |m len] 4|] efs-de|
|000011a0| 6c 2d 66 72 6f 6d 2d 6c | 73 2d 63 61 63 68 65 5d |l-from-l|s-cache]|
|000011b0| 20 35 5d 20 65 66 73 2d | 61 64 64 2d 66 69 6c 65 | 5] efs-|add-file|
|000011c0| 2d 65 6e 74 72 79 20 23 | 5b 28 70 61 74 68 20 64 |-entry #|[(path d|
|000011d0| 69 72 2d 70 20 73 69 7a | 65 20 6f 77 6e 65 72 20 |ir-p siz|e owner |
|000011e0| 26 6f 70 74 69 6f 6e 61 | 6c 20 6d 6f 64 65 73 20 |&optiona|l modes |
|000011f0| 6e 6c 69 6e 6b 73 20 6d | 64 74 6d 29 20 22 c0 09 |nlinks m|dtm) "..|
|00001200| 73 5c 6e 3f 3f 1a 0b ab | 8a 5c 6e 0c 0d c6 89 0b |s\n??...|.\n.....|
|00001210| af 06 aa 84 5c 6e 0c 0d | 45 29 1e 07 1e 08 5c 6e |....\n..|E)....\n|
|00001220| 83 fe 00 c9 0e 5c 6e 21 | 1e 5c 6e cb 0e 5c 6e 21 |.....\n!|.\n..\n!|
|00001230| 89 1e 0c 3b ab 84 0e 0c | aa 84 cd 0e 0c 21 29 1e |...;....|.....!).|
|00001240| 0c 0e 08 ab b3 ce 1e 0f | 0e 0c 1e 10 0e 11 1e 12 |........|........|
|00001250| 0e 0c 47 1e 13 d4 0e 10 | 0e 12 d5 23 89 1e 16 ad |..G.....|...#....|
|00001260| 94 0e 16 ce 61 ab 88 d7 | 0e 10 0e 12 5c 22 aa 86 |....a...|....\"..|
|00001270| d7 0e 16 0e 12 5c 22 2d | aa 86 d8 0e 0c 0e 11 5c |.....\"-|.......\|
|00001280| 22 89 1e 19 ad 84 0e 19 | da 4e 2a 89 1e 1b ab f2 |".......|.N*.....|
|00001290| dc 0e 5c 6e 21 89 1e 1d | de 98 ab 83 df aa 82 0e |..\n!...|........|
|000012a0| 1d 29 89 1e 0c 3b ab 84 | 0e 0c aa 84 cd 0e 0c 21 |.)...;..|.......!|
|000012b0| 29 1e 0c 0e 08 ab bb ce | 1e 0f 0e 0c 1e 10 0e 1b |).......|........|
|000012c0| 1e 12 0e 0c 47 1e 13 d4 | 0e 10 0e 12 e0 23 89 1e |....G...|.....#..|
|000012d0| 16 ad 94 0e 16 ce 61 ab | 88 d7 0e 10 0e 12 5c 22 |......a.|......\"|
|000012e0| aa 86 d7 0e 16 0e 12 5c | 22 2d ae 8e d7 0e 0c 0e |.......\|"-......|
|000012f0| 1b 5c 22 aa 86 d7 0e 0c | 0e 1b 5c 22 1e 19 e1 0e |.\".....|..\"....|
|00001300| 19 da 0e 07 23 88 2a 2a | 82 a7 02 cb 0e 5c 6e 21 |....#.**|.....\n!|
|00001310| 89 1e 0c 3b ab 84 0e 0c | aa 84 cd 0e 0c 21 29 1e |...;....|.....!).|
|00001320| 0c 0e 08 ab b3 ce 1e 0f | 0e 0c 1e 10 0e 11 1e 12 |........|........|
|00001330| 0e 0c 47 1e 13 d4 0e 10 | 0e 12 e2 23 89 1e 16 ad |..G.....|...#....|
|00001340| 94 0e 16 ce 61 ab 88 d7 | 0e 10 0e 12 5c 22 aa 86 |....a...|....\"..|
|00001350| d7 0e 16 0e 12 5c 22 2d | aa 86 d8 0e 0c 0e 11 5c |.....\"-|.......\|
|00001360| 22 89 1e 19 ad 84 0e 19 | da 4e 2a 89 1e 1b 83 a6 |".......|.N*.....|
|00001370| 02 dc 0e 5c 6e 21 89 1e | 1d de 98 ab 83 df aa 82 |...\n!..|........|
|00001380| 0e 1d 29 1e 1d e3 20 70 | 0e 24 1e 25 1e 26 1e 27 |..)... p|.$.%.&.'|
|00001390| e8 8e c6 16 24 e9 ea 0e | 1d 5c 22 ab e9 0e 1d eb |....$...|.\".....|
|000013a0| 89 94 4f 89 1e 0c 3b ab | 84 0e 0c aa 84 cd 0e 0c |..O...;.|........|
|000013b0| 21 29 1e 0c 0e 08 ab bb | ce 1e 0f 0e 0c 1e 10 0e |!)......|........|
|000013c0| 1b 1e 12 0e 0c 47 1e 13 | d4 0e 10 0e 12 ec 23 89 |.....G..|......#.|
|000013d0| 1e 16 ad 94 0e 16 ce 61 | ab 88 d7 0e 10 0e 12 5c |.......a|.......\|
|000013e0| 22 aa 86 d7 0e 16 0e 12 | 5c 22 2d ae 8e d7 0e 0c |".......|\"-.....|
|000013f0| 0e 1b 5c 22 aa 86 d7 0e | 0c 0e 1b 5c 22 1e 19 e1 |..\"....|...\"...|
|00001400| 0e 19 da 0e 07 23 88 2a | aa cf 0e 08 1e 0f 0e 1d |.....#.*|........|
|00001410| 47 1e 13 ed 0e 1d 0e 1b | ee 23 1e 2f 0e 13 54 1e |G.......|.#./..T.|
|00001420| 30 f1 f2 eb f3 f4 0e 2f | 5c 22 42 5c 22 1e 32 0e |0....../|\"B\".2.|
|00001430| 1d df f5 0e 32 54 21 51 | 89 1e 0c 3b ab 84 0e 0c |....2T!Q|...;....|
|00001440| aa 84 cd 0e 0c 21 29 1e | 0c d7 0e 0c 0e 1b 5c 22 |.....!).|......\"|
|00001450| 1e 19 e1 0e 19 da 0e 07 | 23 88 2e 07 2c 0e 1d 89 |........|#...,...|
|00001460| 1e 0c 3b ab 84 0e 0c aa | 84 cd 0e 0c 21 29 1e 0c |..;.....|....!)..|
|00001470| 0e 08 ab bb ce 1e 0f 0e | 0c 1e 10 0e 1b 1e 12 0e |........|........|
|00001480| 0c 47 1e 13 d4 0e 10 0e | 12 f6 23 89 1e 16 ad 94 |.G......|..#.....|
|00001490| 0e 16 ce 61 ab 88 d7 0e | 10 0e 12 5c 22 aa 86 d7 |...a....|...\"...|
|000014a0| 0e 16 0e 12 5c 22 2d ae | 8e d7 0e 0c 0e 1b 5c 22 |....\"-.|......\"|
|000014b0| aa 86 d7 0e 0c 0e 1b 5c | 22 1e 19 e1 0e 19 da 0e |.......\|".......|
|000014c0| 07 23 88 2b 29 f7 0e 5c | 6e ce 0e 08 23 2a 87 22 |.#.+)..\|n...#*."|
|000014d0| 20 5b 74 69 2d 74 77 65 | 6e 65 78 20 65 66 73 2d | [ti-twe|nex efs-|
|000014e0| 63 61 73 65 2d 69 6e 73 | 65 6e 73 69 74 69 76 65 |case-ins|ensitive|
|000014f0| 2d 68 6f 73 74 2d 74 79 | 70 65 73 20 64 69 72 2d |-host-ty|pes dir-|
|00001500| 70 20 6d 64 74 6d 20 73 | 69 7a 65 20 6f 77 6e 65 |p mdtm s|ize owne|
|00001510| 72 20 6e 69 6c 20 65 6e | 74 20 69 67 6e 6f 72 65 |r nil en|t ignore|
|00001520| 2d 63 61 73 65 20 64 69 | 72 65 63 74 6f 72 79 2d |-case di|rectory-|
|00001530| 66 69 6c 65 2d 6e 61 6d | 65 20 70 61 74 68 20 66 |file-nam|e path f|
|00001540| 69 6c 65 2d 6e 61 6d 65 | 2d 64 69 72 65 63 74 6f |ile-name|-directo|
|00001550| 72 79 20 6b 65 79 20 70 | 72 69 6e 31 2d 74 6f 2d |ry key p|rin1-to-|
|00001560| 73 74 72 69 6e 67 20 74 | 20 63 6f 6d 70 6c 65 74 |string t| complet|
|00001570| 69 6f 6e 2d 69 67 6e 6f | 72 65 2d 63 61 73 65 20 |ion-igno|re-case |
|00001580| 6e 61 6d 65 20 65 66 73 | 2d 66 69 6c 65 73 2d 68 |name efs|-files-h|
|00001590| 61 73 68 74 61 62 6c 65 | 20 74 62 6c 20 6c 65 6e |ashtable| tbl len|
|000015a0| 20 74 72 79 2d 63 6f 6d | 70 6c 65 74 69 6f 6e 20 | try-com|pletion |
|000015b0| 23 5b 28 73 79 6d 29 20 | 22 c0 09 21 47 5c 6e 55 |#[(sym) |"..!G\nU|
|000015c0| 87 22 20 5b 73 79 6d 62 | 6f 6c 2d 6e 61 6d 65 20 |." [symb|ol-name |
|000015d0| 73 79 6d 20 6c 65 6e 5d | 20 32 5d 20 6e 65 77 6e |sym len]| 2] newn|
|000015e0| 61 6d 65 20 69 6e 74 65 | 72 6e 20 69 6e 74 65 72 |ame inte|rn inter|
|000015f0| 6e 2d 73 6f 66 74 20 73 | 79 6d 20 76 61 6c 20 66 |n-soft s|ym val f|
|00001600| 69 6c 65 73 20 66 69 6c | 65 2d 6e 61 6d 65 2d 6e |iles fil|e-name-n|
|00001610| 6f 6e 64 69 72 65 63 74 | 6f 72 79 20 66 69 6c 65 |ondirect|ory file|
|00001620| 20 22 22 20 22 2e 22 20 | 23 5b 28 73 79 6d 29 20 | "" "." |#[(sym) |
|00001630| 22 c0 09 21 47 5c 6e 55 | 87 22 20 5b 73 79 6d 62 |"..!G\nU|." [symb|
|00001640| 6f 6c 2d 6e 61 6d 65 20 | 73 79 6d 20 6c 65 6e 5d |ol-name |sym len]|
|00001650| 20 32 5d 20 70 75 74 20 | 23 5b 28 73 79 6d 29 20 | 2] put |#[(sym) |
|00001660| 22 c0 09 21 47 5c 6e 55 | 87 22 20 5b 73 79 6d 62 |"..!G\nU|." [symb|
|00001670| 6f 6c 2d 6e 61 6d 65 20 | 73 79 6d 20 6c 65 6e 5d |ol-name |sym len]|
|00001680| 20 32 5d 20 6d 61 74 63 | 68 2d 64 61 74 61 20 63 | 2] matc|h-data c|
|00001690| 61 73 65 2d 66 6f 6c 64 | 2d 73 65 61 72 63 68 20 |ase-fold|-search |
|000016a0| 63 66 73 20 62 75 66 66 | 20 6d 61 74 63 68 2d 64 |cfs buff| match-d|
|000016b0| 61 74 61 20 28 28 62 79 | 74 65 2d 63 6f 64 65 20 |ata ((by|te-code |
|000016c0| 22 c0 c1 c2 8f 88 c3 0c | 21 87 22 20 5b 6e 69 6c |".......|!." [nil|
|000016d0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 8a 08 71 | (byte-c|ode "..q|
|000016e0| 88 09 12 29 c3 87 22 20 | 5b 62 75 66 66 20 63 66 |...).." |[buff cf|
|000016f0| 73 20 63 61 73 65 2d 66 | 6f 6c 64 2d 73 65 61 72 |s case-f|old-sear|
|00001700| 63 68 20 6e 69 6c 5d 20 | 31 29 20 28 28 65 72 72 |ch nil] |1) ((err|
|00001710| 6f 72 29 29 20 73 74 6f | 72 65 2d 6d 61 74 63 68 |or)) sto|re-match|
|00001720| 2d 64 61 74 61 20 6d 61 | 74 63 68 2d 64 61 74 61 |-data ma|tch-data|
|00001730| 5d 20 33 29 29 20 73 74 | 72 69 6e 67 2d 6d 61 74 |] 3)) st|ring-mat|
|00001740| 63 68 20 22 5c 5c 2e 5b | 30 2d 39 5d 2b 24 22 20 |ch "\\.[|0-9]+$" |
|00001750| 30 20 23 5b 28 73 79 6d | 29 20 22 c0 09 21 47 5c |0 #[(sym|) "..!G\|
|00001760| 6e 55 87 22 20 5b 73 79 | 6d 62 6f 6c 2d 6e 61 6d |nU." [sy|mbol-nam|
|00001770| 65 20 73 79 6d 20 6c 65 | 6e 5d 20 32 5d 20 61 6c |e sym le|n] 2] al|
|00001780| 6c 2d 63 6f 6d 70 6c 65 | 74 69 6f 6e 73 20 23 5b |l-comple|tions #[|
|00001790| 28 73 79 6d 29 20 22 c0 | c1 c2 0b 21 0c 23 87 22 |(sym) ".|...!.#."|
|000017a0| 20 5b 73 74 72 69 6e 67 | 2d 6d 61 74 63 68 20 22 | [string|-match "|
|000017b0| 5c 5c 2e 5b 30 2d 39 5d | 2b 24 22 20 73 79 6d 62 |\\.[0-9]|+$" symb|
|000017c0| 6f 6c 2d 6e 61 6d 65 20 | 73 79 6d 20 6c 65 6e 5d |ol-name |sym len]|
|000017d0| 20 34 5d 20 76 65 72 73 | 69 6f 6e 73 20 4e 20 61 | 4] vers|ions N a|
|000017e0| 70 70 6c 79 20 6d 61 78 | 20 6d 61 70 63 61 72 20 |pply max| mapcar |
|000017f0| 23 5b 28 78 29 20 22 c0 | 09 5c 6e c3 4f 21 87 22 |#[(x) ".|.\n.O!."|
|00001800| 20 5b 73 74 72 69 6e 67 | 2d 74 6f 2d 69 6e 74 20 | [string|-to-int |
|00001810| 78 20 4e 20 6e 69 6c 5d | 20 34 5d 20 69 6e 74 2d |x N nil]| 4] int-|
|00001820| 74 6f 2d 73 74 72 69 6e | 67 20 23 5b 28 73 79 6d |to-strin|g #[(sym|
|00001830| 29 20 22 c0 09 21 47 5c | 6e 55 87 22 20 5b 73 79 |) "..!G\|nU." [sy|
|00001840| 6d 62 6f 6c 2d 6e 61 6d | 65 20 73 79 6d 20 6c 65 |mbol-nam|e sym le|
|00001850| 6e 5d 20 32 5d 20 65 66 | 73 2d 64 65 6c 2d 66 72 |n] 2] ef|s-del-fr|
|00001860| 6f 6d 2d 6c 73 2d 63 61 | 63 68 65 5d 20 38 5d 20 |om-ls-ca|che] 8] |
|00001870| 65 66 73 2d 69 6e 74 65 | 72 6e 61 6c 2d 66 69 6c |efs-inte|rnal-fil|
|00001880| 65 2d 6e 61 6d 65 2d 61 | 73 2d 64 69 72 65 63 74 |e-name-a|s-direct|
|00001890| 6f 72 79 20 23 5b 28 6e | 61 6d 65 29 20 22 c0 20 |ory #[(n|ame) ". |
|000018a0| 70 09 1a 1b 1c c5 8e c6 | 11 c7 c8 0e 09 5c 22 ab |p.......|.....\".|
|000018b0| 88 0e 09 ca 89 94 4f 16 | 09 c6 1e 0b cc 0e 09 21 |......O.|.......!|
|000018c0| 2d 87 22 20 5b 6d 61 74 | 63 68 2d 64 61 74 61 20 |-." [mat|ch-data |
|000018d0| 63 61 73 65 2d 66 6f 6c | 64 2d 73 65 61 72 63 68 |case-fol|d-search|
|000018e0| 20 63 66 73 20 62 75 66 | 66 20 6d 61 74 63 68 2d | cfs buf|f match-|
|000018f0| 64 61 74 61 20 28 28 62 | 79 74 65 2d 63 6f 64 65 |data ((b|yte-code|
|00001900| 20 22 c0 c1 c2 8f 88 c3 | 0c 21 87 22 20 5b 6e 69 | "......|.!." [ni|
|00001910| 6c 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 8a 08 |l (byte-|code "..|
|00001920| 71 88 09 12 29 c3 87 22 | 20 5b 62 75 66 66 20 63 |q...).."| [buff c|
|00001930| 66 73 20 63 61 73 65 2d | 66 6f 6c 64 2d 73 65 61 |fs case-|fold-sea|
|00001940| 72 63 68 20 6e 69 6c 5d | 20 31 29 20 28 28 65 72 |rch nil]| 1) ((er|
|00001950| 72 6f 72 29 29 20 73 74 | 6f 72 65 2d 6d 61 74 63 |ror)) st|ore-matc|
|00001960| 68 2d 64 61 74 61 20 6d | 61 74 63 68 2d 64 61 74 |h-data m|atch-dat|
|00001970| 61 5d 20 33 29 29 20 6e | 69 6c 20 73 74 72 69 6e |a] 3)) n|il strin|
|00001980| 67 2d 6d 61 74 63 68 20 | 22 5c 5c 2e 5c 5c 28 44 |g-match |"\\.\\(D|
|00001990| 49 52 45 43 54 4f 52 59 | 5c 5c 7c 64 69 72 65 63 |IRECTORY|\\|direc|
|000019a0| 74 6f 72 79 5c 5c 29 5c | 5c 28 5c 5c 2e 5b 30 2d |tory\\)\|\(\\.[0-|
|000019b0| 39 3e 5d 5c 5c 29 3f 24 | 22 20 6e 61 6d 65 20 30 |9>]\\)?$|" name 0|
|000019c0| 20 66 69 6c 65 2d 6e 61 | 6d 65 2d 68 61 6e 64 6c | file-na|me-handl|
|000019d0| 65 72 2d 61 6c 69 73 74 | 20 66 69 6c 65 2d 6e 61 |er-alist| file-na|
|000019e0| 6d 65 2d 61 73 2d 64 69 | 72 65 63 74 6f 72 79 5d |me-as-di|rectory]|
|000019f0| 20 33 5d 20 65 66 73 2d | 61 6c 6c 6f 77 2d 63 68 | 3] efs-|allow-ch|
|00001a00| 69 6c 64 2d 6c 6f 6f 6b | 75 70 20 23 5b 28 68 6f |ild-look|up #[(ho|
|00001a10| 73 74 20 75 73 65 72 20 | 64 69 72 20 66 69 6c 65 |st user |dir file|
|00001a20| 29 20 22 c0 c1 5c 6e 5c | 22 3f 87 22 20 5b 73 74 |) "..\n\|"?." [st|
|00001a30| 72 69 6e 67 2d 6d 61 74 | 63 68 20 22 5c 5c 2e 22 |ring-mat|ch "\\."|
|00001a40| 20 66 69 6c 65 5d 20 33 | 5d 5d 20 35 29 0a 23 40 | file] 3|]] 5).#@|
|00001a50| 36 31 20 52 65 67 75 6c | 61 72 20 65 78 70 72 65 |61 Regul|ar expre|
|00001a60| 73 73 69 6f 6e 20 74 6f | 20 75 73 65 20 74 6f 20 |ssion to| use to |
|00001a70| 73 65 61 72 63 68 20 66 | 6f 72 20 54 57 45 4e 45 |search f|or TWENE|
|00001a80| 58 20 64 69 72 65 63 74 | 6f 72 69 65 73 2e 1f 0a |X direct|ories...|
|00001a90| 28 64 65 66 63 6f 6e 73 | 74 20 65 66 73 2d 64 69 |(defcons|t efs-di|
|00001aa0| 72 65 64 2d 74 69 2d 74 | 77 65 6e 65 78 2d 72 65 |red-ti-t|wenex-re|
|00001ab0| 2d 64 69 72 20 22 5e 2e | 20 2a 5b 5e 3e 5c 6e 0d |-dir "^.| *[^>\n.|
|00001ac0| 5d 2b 3e 5b 5e 3e 5c 6e | 0d 2e 5d 2b 5c 5c 2e 5c |]+>[^>\n|..]+\\.\|
|00001ad0| 5c 28 44 49 52 45 43 54 | 4f 52 59 5c 5c 7c 64 69 |\(DIRECT|ORY\\|di|
|00001ae0| 72 65 63 74 6f 72 79 5c | 5c 29 5c 5c 62 22 20 28 |rectory\|\)\\b" (|
|00001af0| 23 24 20 2e 20 36 37 33 | 39 29 29 0a 28 62 79 74 |#$ . 673|9)).(byt|
|00001b00| 65 2d 63 6f 64 65 20 22 | c0 09 b7 ac 86 c0 5c 6e |e-code "|......\n|
|00001b10| 42 09 42 11 c3 c4 c5 c6 | c0 21 0e 07 5c 22 c8 23 |B.B.....|.!..\".#|
|00001b20| 88 c3 c9 c5 c6 c0 21 0e | 07 5c 22 ca 23 88 c3 cb |......!.|.\".#...|
|00001b30| c5 c6 c0 21 0e 07 5c 22 | cc 23 87 22 20 5b 74 69 |...!..\"|.#." [ti|
|00001b40| 2d 74 77 65 6e 65 78 20 | 65 66 73 2d 64 69 72 65 |-twenex |efs-dire|
|00001b50| 64 2d 72 65 2d 64 69 72 | 2d 61 6c 69 73 74 20 65 |d-re-dir|-alist e|
|00001b60| 66 73 2d 64 69 72 65 64 | 2d 74 69 2d 74 77 65 6e |fs-dired|-ti-twen|
|00001b70| 65 78 2d 72 65 2d 64 69 | 72 20 70 75 74 20 65 66 |ex-re-di|r put ef|
|00001b80| 73 2d 64 69 72 65 64 2d | 6d 61 6e 75 61 6c 2d 6d |s-dired-|manual-m|
|00001b90| 6f 76 65 2d 74 6f 2d 66 | 69 6c 65 6e 61 6d 65 20 |ove-to-f|ilename |
|00001ba0| 69 6e 74 65 72 6e 20 73 | 79 6d 62 6f 6c 2d 6e 61 |intern s|ymbol-na|
|00001bb0| 6d 65 20 65 66 73 2d 6b | 65 79 2d 6f 62 61 72 72 |me efs-k|ey-obarr|
|00001bc0| 61 79 20 23 5b 28 26 6f | 70 74 69 6f 6e 61 6c 20 |ay #[(&o|ptional |
|00001bd0| 72 61 69 73 65 2d 65 72 | 72 6f 72 20 62 6f 6c 20 |raise-er|ror bol |
|00001be0| 65 6f 6c 29 20 22 08 ac | 88 8a c1 c2 77 88 60 29 |eol) "..|....w.`)|
|00001bf0| 10 c2 1b 0c ab 85 0c 62 | 88 aa 84 c1 c2 78 88 c5 |.......b|.....x..|
|00001c00| 0e 06 08 c7 23 ab 91 c8 | 94 62 88 c9 ca 21 ab 85 |....#...|.b...!..|
|00001c10| c8 95 62 aa 8a 60 aa 87 | 0e 0b ad 83 cc cd 21 29 |..b..`..|......!)|
|00001c20| 87 22 20 5b 65 6f 6c 20 | 22 5e 5c 6e 0d 22 20 6e |." [eol |"^\n." n|
|00001c30| 69 6c 20 63 61 73 65 2d | 66 6f 6c 64 2d 73 65 61 |il case-|fold-sea|
|00001c40| 72 63 68 20 62 6f 6c 20 | 72 65 2d 73 65 61 72 63 |rch bol |re-searc|
|00001c50| 68 2d 66 6f 72 77 61 72 | 64 20 65 66 73 2d 74 69 |h-forwar|d efs-ti|
|00001c60| 2d 74 77 65 6e 65 78 2d | 66 69 6c 65 6e 61 6d 65 |-twenex-|filename|
|00001c70| 2d 72 65 67 65 78 70 20 | 74 20 30 20 6c 6f 6f 6b |-regexp |t 0 look|
|00001c80| 69 6e 67 2d 61 74 20 22 | 5b 5e 3e 5d 2a 3e 20 2a |ing-at "|[^>]*> *|
|00001c90| 22 20 72 61 69 73 65 2d | 65 72 72 6f 72 20 65 72 |" raise-|error er|
|00001ca0| 72 6f 72 20 22 4e 6f 20 | 66 69 6c 65 20 6f 6e 20 |ror "No |file on |
|00001cb0| 74 68 69 73 20 6c 69 6e | 65 22 5d 20 34 5d 20 65 |this lin|e"] 4] e|
|00001cc0| 66 73 2d 64 69 72 65 64 | 2d 6d 61 6e 75 61 6c 2d |fs-dired|-manual-|
|00001cd0| 6d 6f 76 65 2d 74 6f 2d | 65 6e 64 2d 6f 66 2d 66 |move-to-|end-of-f|
|00001ce0| 69 6c 65 6e 61 6d 65 20 | 23 5b 28 26 6f 70 74 69 |ilename |#[(&opti|
|00001cf0| 6f 6e 61 6c 20 6e 6f 2d | 65 72 72 6f 72 20 62 6f |onal no-|error bo|
|00001d00| 6c 20 65 6f 6c 29 20 22 | c0 19 5c 6e ab a7 0b ac |l eol) "|..\n....|
|00001d10| a4 0c ae 87 8a c5 c0 78 | 88 60 29 53 66 c6 61 ab |.......x|.`)Sf.a.|
|00001d20| 94 c7 c8 20 21 ab 88 c9 | ca cb 21 21 88 aa 86 c9 |... !...|..!!....|
|00001d30| ca cc 21 21 88 cd 0e 0e | 21 ab 85 cf 95 62 aa 87 |..!!....|!....b..|
|00001d40| 0b 3f ad 83 c9 d0 21 29 | 87 22 20 5b 6e 69 6c 20 |.?....!)|." [nil |
|00001d50| 63 61 73 65 2d 66 6f 6c | 64 2d 73 65 61 72 63 68 |case-fol|d-search|
|00001d60| 20 73 65 6c 65 63 74 69 | 76 65 2d 64 69 73 70 6c | selecti|ve-displ|
|00001d70| 61 79 20 6e 6f 2d 65 72 | 72 6f 72 20 62 6f 6c 20 |ay no-er|ror bol |
|00001d80| 22 5e 0d 5c 6e 22 20 3f | 5c 72 20 64 69 72 65 64 |"^.\n" ?|\r dired|
|00001d90| 2d 73 75 62 64 69 72 2d | 68 69 64 64 65 6e 2d 70 |-subdir-|hidden-p|
|00001da0| 20 64 69 72 65 64 2d 63 | 75 72 72 65 6e 74 2d 64 | dired-c|urrent-d|
|00001db0| 69 72 65 63 74 6f 72 79 | 20 65 72 72 6f 72 20 73 |irectory| error s|
|00001dc0| 75 62 73 74 69 74 75 74 | 65 2d 63 6f 6d 6d 61 6e |ubstitut|e-comman|
|00001dd0| 64 2d 6b 65 79 73 20 22 | 46 69 6c 65 20 6c 69 6e |d-keys "|File lin|
|00001de0| 65 20 69 73 20 68 69 64 | 64 65 6e 2e 20 54 79 70 |e is hid|den. Typ|
|00001df0| 65 20 5c 5c 5b 64 69 72 | 65 64 2d 68 69 64 65 2d |e \\[dir|ed-hide-|
|00001e00| 73 75 62 64 69 72 5d 20 | 74 6f 20 75 6e 68 69 64 |subdir] |to unhid|
|00001e10| 65 2e 22 20 22 46 69 6c | 65 20 6c 69 6e 65 20 69 |e." "Fil|e line i|
|00001e20| 73 20 6f 6d 69 74 74 65 | 64 2e 20 54 79 70 65 20 |s omitte|d. Type |
|00001e30| 5c 5c 5b 64 69 72 65 64 | 2d 6f 6d 69 74 2d 74 6f |\\[dired|-omit-to|
|00001e40| 67 67 6c 65 5d 20 74 6f | 20 75 6e 2d 6f 6d 69 74 |ggle] to| un-omit|
|00001e50| 2e 22 20 6c 6f 6f 6b 69 | 6e 67 2d 61 74 20 65 66 |." looki|ng-at ef|
|00001e60| 73 2d 74 69 2d 74 77 65 | 6e 65 78 2d 66 69 6c 65 |s-ti-twe|nex-file|
|00001e70| 6e 61 6d 65 2d 72 65 67 | 65 78 70 20 30 20 22 4e |name-reg|exp 0 "N|
|00001e80| 6f 20 66 69 6c 65 20 6f | 6e 20 74 68 69 73 20 6c |o file o|n this l|
|00001e90| 69 6e 65 22 5d 20 33 5d | 20 65 66 73 2d 69 6e 74 |ine"] 3]| efs-int|
|00001ea0| 65 72 6e 61 6c 2d 66 69 | 6c 65 2d 6e 61 6d 65 2d |ernal-fi|le-name-|
|00001eb0| 73 61 6e 73 2d 76 65 72 | 73 69 6f 6e 73 20 23 5b |sans-ver|sions #[|
|00001ec0| 28 6e 61 6d 65 20 26 6f | 70 74 69 6f 6e 61 6c 20 |(name &o|ptional |
|00001ed0| 6b 65 65 70 2d 62 61 63 | 6b 75 70 2d 76 65 72 73 |keep-bac|kup-vers|
|00001ee0| 69 6f 6e 29 20 22 c0 20 | 70 09 1a 1b 1c c5 8e c6 |ion) ". |p.......|
|00001ef0| 11 c7 c8 0e 09 5c 22 ab | 88 0e 09 ca 89 94 4f aa |.....\".|......O.|
|00001f00| 82 0e 09 2c 87 22 20 5b | 6d 61 74 63 68 2d 64 61 |...,." [|match-da|
|00001f10| 74 61 20 63 61 73 65 2d | 66 6f 6c 64 2d 73 65 61 |ta case-|fold-sea|
|00001f20| 72 63 68 20 63 66 73 20 | 62 75 66 66 20 6d 61 74 |rch cfs |buff mat|
|00001f30| 63 68 2d 64 61 74 61 20 | 28 28 62 79 74 65 2d 63 |ch-data |((byte-c|
|00001f40| 6f 64 65 20 22 c0 c1 c2 | 8f 88 c3 0c 21 87 22 20 |ode "...|....!." |
|00001f50| 5b 6e 69 6c 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |[nil (by|te-code |
|00001f60| 22 8a 08 71 88 09 12 29 | c3 87 22 20 5b 62 75 66 |"..q...)|.." [buf|
|00001f70| 66 20 63 66 73 20 63 61 | 73 65 2d 66 6f 6c 64 2d |f cfs ca|se-fold-|
|00001f80| 73 65 61 72 63 68 20 6e | 69 6c 5d 20 31 29 20 28 |search n|il] 1) (|
|00001f90| 28 65 72 72 6f 72 29 29 | 20 73 74 6f 72 65 2d 6d |(error))| store-m|
|00001fa0| 61 74 63 68 2d 64 61 74 | 61 20 6d 61 74 63 68 2d |atch-dat|a match-|
|00001fb0| 64 61 74 61 5d 20 33 29 | 29 20 6e 69 6c 20 73 74 |data] 3)|) nil st|
|00001fc0| 72 69 6e 67 2d 6d 61 74 | 63 68 20 22 5c 5c 2e 5b |ring-mat|ch "\\.[|
|00001fd0| 30 2d 39 5d 2b 24 22 20 | 6e 61 6d 65 20 30 5d 20 |0-9]+$" |name 0] |
|00001fe0| 33 5d 5d 20 35 29 0a    |                         |3]] 5). |        |
+--------+-------------------------+-------------------------+--------+--------+